home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 August
/
1984-08.d64
/
cursor get_vic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
389b
|
11 lines
10 gosub1102:printa$;:goto10:rem this is the "host" program
1101 goto1109:rem get with cursor blink
1102 xl%=peek(211)
1103 ifxl%>21thenxl%=xl%-22:goto1103
1104 xl%=xl%+peek(214)*22+4096:xc=33792+xl%:ifpeek(210)>20thenxc=xc+512:xl%=xl%+3584
1105 pokexc,peek(646):xo%=peek(xl%):xt%=xo%:xq%=128:ifxo%>127thenxq%=-xq%
1106 xt%=xt%+xq%:pokexl%,xt%:xq%=-xq%:forxr=1to60:rem changing 60 changes blink speed
1107 geta$:ifa$<>""thenpokexl%,xo%:return
1108 next xr:goto1106
1109 rem